#Include 'Protheus.ch'
/*/{Protheus.doc} TST
PROGRAMA DE TESTE GERAIS
@author Elton Teodoro Alves
@version Version 11.8
@example Example Exemplo em ADVPL <br/>
Outro exemplo em advpl

@sample Sample Exemplo em ADVPL <br/>
Outro exemplo em advpl

@see www.totvs.com.br Totvs
@param	xParam,Objeto,Parametro <br/> passado para a funcao
@return	Objeto Retorno o objeto da funcao

@since	01/01/2014
@table	SA1,SA2,SA3,SA3

@description PROGRAMA DE TESTE GERAIS NA LINGUAGEM ADVPL


/*/
User Function Tst()6
	
	If RpcSetEnv('99','01')
		RpcSetType(3)
		
		ConOut(ProcName() + ': ' + cValToChar(SF1->(Used())))
		
		DbSelectArea('SF1')
		
		ConOut(ProcName() + ': ' + cValToChar(SF1->(Used())))
		
		ConOut(ProcName() + ': ' + cValToChar(SF2->(Used())))
		
		DbSelectArea('SF2')
		
		ConOut(ProcName() + ': ' + cValToChar(SF2->(Used())))
		
		RpcClearEnv()
		
	End If
	
Return

